home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / SauverAuto.AmiCAD < prev    next >
Text File  |  1998-02-21  |  2KB  |  46 lines
  1. /* Sauvegarde automatique   Saint-James, 13 février 1994    Version 1.01 */
  2. /*                Saint-James,  4 juin    1994    Version 1.02 */
  3. /* Modification nom clip    Saint-James,  7 juillet 1994    Version 1.03 */
  4. /* Adaptation AmiTex:        Chez Corbin, 18 septembre 1997  Version 2.00 */
  5. /* Adaptation AmiCAD:        Chez Corbin, 22 Février 1998    Version 2.00 */
  6.  
  7. port = address()
  8. options results
  9. signal ON error     /* pour interrompre quand le programme quitte */
  10.  
  11. cr = '0a'x
  12.  
  13. sauver_auto=getclip(sauvegarde.port)
  14. if sauver_auto=1 then do        /* Version 1.02 */
  15.     a=setclip(sauvegarde.port,"")
  16.     'MESSAGE("Sauvegarde automatique"+CHR(10)+"interrompue.")'
  17.     exit
  18. end
  19.  
  20. if ~show('l', 'rexxsupport.library') then
  21. do
  22.     if ~addlib('rexxsupport.library',0,-30,0) then do
  23.     'MESSAGE("Installez rexxsupport.library"+CHR(10)+"dans votre répertoire libs: avant"+CHR(10)+"d''utiliser cette macro")'
  24.     exit    /* version 1.02 */
  25.     end
  26. end
  27.  
  28. a=setclip(sauvegarde.port,1)
  29. 'MESSAGE("Une sauvegarde automatique"+CHR(10)+"aura lieu toutes les deux"+CHR(10)+"minutes si le contenu de la"+CHR(10)+"fenêtre active a été modifié."+CHR(10)+"Sélectionnez à nouveau ce script"+CHR(10)+"pour arrêter son exécution.")'
  30.  
  31. do forever            /* Boucle infinie */
  32.     call delay(6000)            /* Délai de deux minutes */
  33.     if ~show(p, port) then goto error
  34.     sauver_auto = getclip(sauvegarde.port)
  35.     if sauver_auto=1 then do
  36.     'MODIF(-1)'             /* Test si texte modifié */
  37.     if result=1 THEN 'MENU("Sauver")'   /* Sauvegarde du texte */
  38.     end
  39.     else
  40.     exit
  41. end
  42.  
  43. error:
  44.     a=setclip(sauvegarde.port,"")
  45.     exit
  46.